home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Format / rfc1148 / t-P2toRFC.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  2.2 KB  |  126 lines
  1. /* t-P2toRFC.c: P2 -> 822  test program */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Format/rfc1148/RCS/t-P2toRFC.c,v 6.0 1991/12/18 20:20:34 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Format/rfc1148/RCS/t-P2toRFC.c,v 6.0 1991/12/18 20:20:34 jpo Rel $
  9.  *
  10.  * $Log: t-P2toRFC.c,v $
  11.  * Revision 6.0  1991/12/18  20:20:34  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include "head.h"
  19. #include "util.h"
  20. #include "q.h"
  21.  
  22. extern void    sys_init(), or_myinit();
  23.  
  24. char    *usage = "t-P2to822 <822> <P2> [<extfile>]\n";
  25. int    order_pref = CH_USA_PREF;
  26. char  *rfc_out;
  27. char  *P2_in;
  28. char  *P2_ext_in;
  29. char  *ipn_body_out;
  30.  
  31. main(argc, argv)
  32. char    **argv;
  33. int     argc;
  34. {
  35.     extern int optind, opterr;
  36.     extern char     *optarg;
  37.     int     opt;
  38.     char    *error = NULLCP;
  39.  
  40.     sys_init(argv[0]);
  41.     or_myinit ();
  42.  
  43.  
  44.     fprintf (stderr, "Welcome to P2 -> RFC 822 \n");
  45.  
  46.     opterr = 0;
  47.     while((opt = getopt(argc, argv, "d:s:")) != EOF)
  48.         switch(opt)
  49.         {
  50.             case 'd': 
  51.                     break;
  52.             default:
  53.                 fprintf(stderr, "Unknown option %c\n", opt);
  54.                 fputs(usage, stderr);
  55.                 exit(1);
  56.         }
  57.  
  58.     if (argc - optind < 2 ||
  59.         argc - optind > 3)
  60.     {
  61.         fprintf (stderr, usage);
  62.         exit (1);
  63.     }
  64.  
  65.     P2_in = argv[optind++];
  66.     rfc_out = argv[optind++];
  67.     if (argc > optind)
  68.         P2_ext_in = argv[optind];
  69.     ipn_body_out = NULL;
  70.     fprintf (stderr, "Initialised\n");
  71.  
  72.     if (P2toRFC (P2_in, P2_ext_in, (Q_struct *) 0, rfc_out, 
  73.              ipn_body_out, &error, 1) != OK)
  74.         fprintf (stderr, "Blew it %s\n",
  75.              (error == NULLCP) ? "" : error );
  76.  
  77. }
  78.  
  79.  
  80.  
  81. void    advise (what, fmt, a, b, c, d, e, f, g, h, i, j)
  82. char   *what,
  83.        *fmt,
  84.        *a,
  85.        *b,
  86.        *c,
  87.        *d,
  88.        *e,
  89.        *f,
  90.        *g,
  91.        *h,
  92.        *i,
  93.        *j;
  94. {
  95.     (void) fflush (stdout);
  96.  
  97.     fprintf (stderr, "RFCtoP2 test");
  98.     fprintf (stderr, fmt, a, b, c, d, e, f, g, h, i, j);
  99.     if (what)
  100.     (void) fputc (' ', stderr), perror (what);
  101.     else
  102.     (void) fputc ('\n', stderr);
  103.  
  104.     (void) fflush (stderr);
  105. }
  106.  
  107.  
  108. /* VARARGS 2 */
  109. void    adios (what, fmt, a, b, c, d, e, f, g, h, i, j)
  110. char   *what,
  111.        *fmt,
  112.        *a,
  113.        *b,
  114.        *c,
  115.        *d,
  116.        *e,
  117.        *f,
  118.        *g,
  119.        *h,
  120.        *i,
  121.        *j;
  122. {
  123.     advise (what, fmt, a, b, c, d, e, f, g, h, i, j);
  124.     _exit (1);
  125. }
  126.